home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 4
/
CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso
/
magazine
/
psion
/
apps2
/
carcost4.lzx
/
carcost4.opa
/
carcost4.txt
next >
Wrap
Text File
|
1993-01-07
|
4KB
|
263 lines
OPLObjectFile**
LOC::M:\OPL\CARCOST4.OPL
CAR4.ODB
\OPD\
MILE1&
FROM$
MILE2&
TITLE$
PATH$
MONTH%
YEAR%
YRDY%
VERSION$
OMILE1&
MILFLG%
HELP%
PROCESS%
EDIT%
EDITLAS%
\OPD\
CARKW
MILE1&
FROM$
MILE2&
MILE1&
FROM$
MILE2&
CarCost
FIND+
LAST entry,DATABASE entry
ENTER+EFUEL purchase,BUSINESS miles,PERSONAL miles,SERVICE entry,Misc. entry
DATA+
PROCESSING(
HELP+
& INFORMATION(
VOd|R
MILE1&
FROM$
MILE2&
DAT&!
MILE1&!
LITR"
COST"
FROM$#
MILE2&!
SORT%
COMPRE%
EXPORT%
DELETE%
PATH$
Car.odbK
SORT/EXPORT/DELETE
SORT+
DATAFILE by mileage(
EXPORT+5ASCII (Comma),ASCII (fixed),Fuel (comma),Fuel (fixed)
DELETE+
OLD ENTRIES(
COMPRESS+
(For data on FLASH SSD)(
DOBOX%
GETDAT%
MILE1&
Sorting...O
MILE1&!
PATH$
Car.odbK
Closing file
Compressing..
Car1.odbK
Car1.odbK
Compression complete
Car1.odbK
MILE1&
FROM$
MILE2&
File reopened
DELBEF%
+"** BLOCK DELETE is irreversible **
Do NOT delete anything(
Delete ALL items BEFORE:O
MILE1&
FROM$
MILE2&
CLRDATA%
APPENDA%
TITLE$
(ESC = cancel)
Fuel Purchase
Business miles
Personal miles
+ Servicing
Misc.
SHOWDAT%
** ENTRY *NOT* SAVED **
GETDAT%
SHOWDAT%
TITLE$
No data to recall
Edit LATEST ENTRY (ESC=quit)
** ENTRY DELETED **
GETDAT%
SHOWDAT%
TITLE$
SEARCH and UPDATE records
Select search criterion below(
Entry TYPE:+$Business,Personal,Fuel,Service,Misc.
From DATE>>:O
Search TEXT:O
*KW O
No matching recordsW8
Edit record (ESC=next match)
** ENTRY DELETED **
** ENTRY DELETED **
No more matching recordsW8
Edit record (ESC=next match)
** ENTRY DELETED **
** ENTRY DELETED **
No more items on or after dateW8
Edit record (ESC=next match)
** ENTRY DELETED **
** ENTRY DELETED **
No more entries of this typeW8
MILE1&
FROM$
MILE2&
DAT&%
MILE1&%
LITR&
COST&
FROM$'
MILE2&%
SENDDAT%
TITLE$
MILE1&
FROM$
MILE2&
Fuel use entry
Business mileage
Personal mileage
Service
Misc.
Entry type
,*** DELETE THIS ENTRY ***K
Date:O
At Mileage:O
PC`[;
From:O
End Mileage:O
Litres:O
Cost:O
Service(miles):
Garage:
Cost
0.00O
text:
text:
Cost:O
DOBOX%
+ Ready to delete.. please confirm
Delete ALL items before
Confirm DELETE->+
No- CANCEL,Yes -DELETE!
Deletion CANCELLED
Deleting..O
DAT&!
COMA$
DOBOX%
GETDAT%
OUTPUT%
MILFLG%
OMILE1&
MILE1&
File is empty
Exporting ASCII please wait
\OPD\carout
.ascK
TypeK
DateK
StartMK
EndMK
DistanceK
F-textK
T-textK
+NT Date StartM EndM Dist From To
DateK
mileageK
DistanceK
LitresK
CostK
+,Date Mileage Dist Litr MPL Cost CPM
Exporting...O
ASCII export ended..
DAYTODA%
COMA$
MONTH%
MILE2&
MILE1&
YEAR%
FROM$
MILFLG%
OMILE1&
..ERROR.K
FC\[.
..ERROR.K
Od|R ,
..ERROR.K
.n/a.K
.....K
.....K
YEAR%
MONTH%
YRDY%
VERSION$
CarCost
1/4K
+&A program to simplify the recording ofO
car use and running costs.O
+"Fuel, business & personal mileage,O
+"servicing and 'misc.' costs can beO
+'entered. Data can be viewed or exportedO
+$as plain or 'comma delimited' ASCII.O
CarCost
2/4K
+ Entries are sorted by mileometerO
+'reading. Journey lengths are calculatedO
+'and if the car is filled each time fuelO
+'is bought, litres per mile and cost perO
mile are calculated.O
CarCost
3/4K
+#SORT the data before exporting to aO
+#text file. The BLOCK DELETE prunesO
+!out entries before a chosen date.O
+#Back-up '\OPD\car.odb' before usingO
+&delete - and view an ASCII export fileO
+&to spot incomplete or missing entries.O
CarCost
4/4K
+#If you have any comments or queriesO
+$on this program, or even if you findO
it useful, please let me know:O
+ Carl Littlejohns (csljohns@CIX)O
18 Church Meadow, Rhydymwyn,O
Mold, CH7 5HXO
MAIN%
GETDAT%V
PROCESS%
SORT%l
DOBOX%7
COMPRE%]
DELETE%M
CLRDATA%
APPENDA%
EDITLAS%
EDIT%|
SENDDAT%O
SHOWDAT%
DELBEF%n
EXPORT%
OUTPUT%H
DAYTODA%j
HELP%#